Imports capaLogica
Public Class VentanaRenombrarEquipo
    Private idGrupo As Integer
    Private estaCargado As Boolean = False
    Private indexFilaModificada As Integer

    Sub New(ByVal pidGrupo As Integer)
        InitializeComponent()
        idGrupo = pidGrupo
    End Sub
    Private Sub DataGridViewRenombrarEquipo_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewRenombrarEquipo.CellEndEdit
        If estaCargado Then
            Dim nombre As String
            Dim equipos As ArrayList
            Dim idEquipo As Integer
            If Me.DataGridViewRenombrarEquipo.Rows(indexFilaModificada).Cells(1).Value IsNot System.DBNull.Value Then
                nombre = Me.DataGridViewRenombrarEquipo.Rows(indexFilaModificada).Cells(2).Value 'poner aqui 2
                idEquipo = Me.DataGridViewRenombrarEquipo.Rows(indexFilaModificada).Cells(0).Value
            Else
                nombre = ""
            End If
            Dim gestor As GestorEquipo = New GestorEquipo()
            'equipos = gestor.BuscarEquipoGrupo(idGrupo)
            'idEquipo = equipos(1)
            gestor.ModificarEquipo(nombre, idEquipo)

        End If
    End Sub

    Private Sub DataGridViewRenombrarEquipo_CellEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewRenombrarEquipo.CellEnter
        If estaCargado Then
            If Me.DataGridViewRenombrarEquipo.Rows(indexFilaModificada).Cells(0).Value IsNot System.DBNull.Value Then
                indexFilaModificada = Me.DataGridViewRenombrarEquipo.CurrentRow.Index
                '    idGrupo = Me.DataGridViewRenombrarEquipo.Rows(indexFilaModificada).Cells(0).Value
                'Else
                '    idGrupo = 0
            End If

        End If
    End Sub

    Private Sub VentanaRenombrarEquipo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LlenarEquipos()
    End Sub

    Private Sub LlenarEquipos()
        Try
            'TODO quitar el multiequipo de aqui
            Me.DataGridViewRenombrarEquipo.DataSource = MultiEquipo.LevantarEquipos(idGrupo)
            With Me.DataGridViewRenombrarEquipo.Columns.Item("idEquipo")
                .Visible = False
            End With
            With Me.DataGridViewRenombrarEquipo.Columns.Item("idGrupo")
                .Visible = False
            End With
            With Me.DataGridViewRenombrarEquipo.Columns.Item("Nombre")
                .Visible = True
                .HeaderText = "Nombre"
            End With

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

        estaCargado = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class